home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / puzzle boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  961b  |  29 lines
  1. 5 poke53281,.:poke53280,12:printchr$(147)chr$(14)chr$(8)
  2. 10 gosub61000
  3. 100 poke214,13:print:print"[150]           [204]oading [208]rogram..."
  4. 105 goto60000
  5. 110 :
  6. 10000 open15,8,15,"s0:puzzle boot":close15:save"0:puzzle boot",8:end
  7. 10010 :
  8. 60000 open15,8,15,"r0:puzzle page 60=puzzle page 60":input#15,er:close15
  9. 60020 print"[144]load"chr$(34)"puzzle page 60"chr$(34)",8"
  10. 60025 print"run"
  11. 60030 poke43,1:poke44,64:poke16384,0
  12. 60035 poke631,13:poke632,13:poke633,13:poke198,3
  13. 60040 new
  14. 60999 :
  15. 61000 poke214,15:print
  16. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  17. 61120 print"  [152]                                    "
  18. 61130 print"                                      "
  19. 61140 print"                                      "
  20. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #60     "
  21. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  22. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  23. 61180 print"                                      "
  24. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  25. 61200 au$="[212]he [208]uzzle [208]age":poke214,17:print
  26. 61205 printspc(20-len(au$)/2)"[152]"au$
  27. 61210 au$="[194]y [194]arbara [200]. [211]chulak ([195]) 1989":poke214,18:print
  28. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  29.